unit TMachine;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

type
  TMachineVO = class(TDataTransferObject)
  private
    FMachineId: string;
    FBrandId: string;
    FCatgId: string;
    FTypeId:String;
    FCustId:String;
    FShopId:String;
    FMachineCode:String;
    FPurchaseDate:String;
    FExpDate:String;
    FInvoiceId:String;
    FCreateDate:String;
    FStatus:String;
    FLocation:String;
    FAgentId:String;
    FInfo1:String;
    FInfo2:String;
    FInfo3:String;
    FContactNo:String;
  published
    property PK_machine_Id: string index 0 read FMachineId write FMachineId;
    property brand_id: string index 1 read FBrandId write FBrandId;
    property catg_id: String index 2 read FCatgId write FCatgId;
    property type_id: String index 3 read FTypeId write FTypeId;
    property cust_id: string index 4 read FCustId write FCustId;
    property shop_id: string index 5 read FShopId write FShopId;
    property machine_code: string index 6 read FMachineCode write FMachineCode;
    property purchase_date: string index 7 read FPurchaseDate write FPurchaseDate;
    property invoice_id: string index 8 read FInvoiceId write FInvoiceId;
    property create_date: string index 9 read FCreateDate write FCreateDate;
    property status: string index 10 read FStatus write FStatus;
    property location: string index 11 read FLocation write FLocation;
    property agentId: string index 12 read FAgentId write FAgentId;
    property info1: string index 13 read FInfo1 write FInfo1;
    property info2: string index 14 read FInfo2 write FInfo2;
    property info3: string index 15 read FInfo3 write FInfo3;
    property contact_No: string index 16 read FContactNo write FContactNo;
  public
    constructor Create;
    procedure Reset();
  end; 

implementation  

constructor TMachineVO.Create;
begin
  inherited Create;
  tbName := 'inf_machine';
  SetLength(GridInfo, 17);
end;

procedure TMachineVO.Reset();
begin
  FMachineId := '-999';
  FBrandId := '-999';
  FCatgId  := '-999';
  FTypeId  := '-999';
  FCustId  := '-999';
  FShopId  := '-999';
  FMachineCode  := '-999';
  FPurchaseDate := '-999';
  FExpDate   := '-999';
  FInvoiceId := '-999';
  FCreateDate:= '-999';
  FStatus    := '-999';
  FLocation  := '-999';
  FAgentId   := '-999';
  FInfo1 := '-999';
  FInfo2 := '-999';
  FInfo3 := '-999';
  FContactNo := '-999';
end;

end.
